;Exam2011H23HPrg2iƔŁj
;RQrbgȂPOi
;lZpZ
;---------------------
MAIN START
	LD GR1,VALHI
	LD GR2,VALLOW
	LAD GR3,DIVHI
	CALL DIV
	ST GR1,ANSHI
	ST GR2,ANSLOW
	ST GR4,AMARIHI
	ST GR5,AMARILOW
;-----------------------------
	LD GR1,VALHI
	LD GR2,VALLOW
	LAD GR3,VALSTR
	CALL BTOD2
;-----------------------------
	LD GR1,DIVHI
	LD GR2,DIVLOW
	LAD GR3,DIVSTR
	CALL BTOD2
;-----------------------------
	LD GR1,ANSHI
	LD GR2,ANSLOW
	LAD GR3,ANSSTR
	CALL BTOD2
;-----------------------------
	LD GR1,AMARIHI
	LD GR2,AMARILOW
	LAD GR3,AMARISTR
	CALL BTOD2
	RET
VALHI 	DC #0000    ;폜ʂPUrbg
VALLOW 	DC #054D   ;폜ʂPUrbg
DIVHI 	DC #0000   ; ̏ʂPUrbg
DIVLOW 	DC #0005 ;̉ʂPUrbg
ANSHI 	DS 1        ;ʂPUrbg
ANSLOW DS 1        ;ʂPUrbg
AMARIHI DS 1      ;]ʂPUrbg
AMARILOW DS 1     ;]艺ʂPUrbg
VALSTR 	DS 5
DIVSTR 	DS 5
ANSSTR 	DS 5 
AMARISTR DS 5
	END
;------------------------
BTOD2 START
	RPUSH
	LD GR6,GR3
	LAD GR7,4,GR3
	LAD GR3,UDAT   ;̏ݒ
LP 	CALL DIV
	OR GR2,='0'    ;@C
	ST GR2,0,GR6   ;POiPi[@
	CPL GR6,GR7
	JZE FIN
	LAD GR6,1,GR6
	LD GR1,GR4     ;폜̍Đݒ
	LD GR2,GR5
	LAD GR3,2,GR3  ;@C
	JUMP LP
FIN 	RPOP
	RET
UDAT 	DC 0
	DC 10000
	DC 0
	DC 1000
	DC 0
	DC 100
	DC 0
	DC 10
	DC 0
	DC 1
	END
;----------------------------

DIV START ;@ZpRQrbgZ
	PUSH 0,GR6
	PUSH 0,GR7
	LD GR6,GR1 @@;폜ʂPUrbg
	LD GR7,GR2 @@;폜ʂPUrbg
	LD GR1,=#FFFF  ;̏
	LD GR2,=#FFFF
LP 	LD GR4,GR6	@@@; GR1
	LD GR5,GR7 @@;GR2
	ADDL GR2,=1    ;̃JEgAbv
	JOV ADJ1
	JUMP CONT
ADJ1 	ADDL GR1,=1    ;a @C
CONT 	SUBL GR6,0,GR3
	JOV FIN
	SUBL GR7,1,GR3
	JOV ADJ2        ; b @E
	JUMP LP
ADJ2 	SUBL GR6,=1
	JOV FIN
	JUMP LP
FIN 	POP GR7
	POP GR6
	RET
	END
;---------------------
